***********************************************
***********************************************
********Replication code for*******************
*******State History and Homicide**************
******Gerring & Knutsen, ASR 2022**************
***********************************************
***********************************************

use "C:\Users\carlhk\Dropbox\Homicide\Analyses\Homicide_4.dta", clear

keep country_id country_label country_name year homicides_UN_1 homicides_UN_1_ln homicides_UN_2 homicides_UN_2_ln  homicides_UN_3_ln_mean homicides_UN_4 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth e_regionpol4 Latitude_ln suita_GAEZ rugged Island natborders area_imp_ext_corrected_ln e_Total_Oil_Income_PC e_Total_Resources_Income_PC est_Maddison2018_gdppc_ppp_bt_ln e_peginiwi ucdp_type3 bdeadlow_sum_nomiss_per1000 Maddison_pop_estimate_ln PopulationgrowthannualSP ln_pd1500 Populationdensitypeoplepers Urbanpopulationoftotalpop youth_male_ipo Sexratioatbirthmalebirths Ratiooffemaletomalelaborfo Mortalityrateinfantper100_ln e_peaveduc e_literacy_ext al_ethnic al_language al_religion chrstprotpct yearsquared yr_indep_1776 v2x_polyarchy v2x_polyarchy_stock_1 wbgi_cce wbgi_gee wbgi_pve wbgi_rle v2clrspct KII e_regiongeo homicides_WHO homicides_WHO_ln x_2 adjstate_ext adjstate_coding statehiste* s0* age2000 s2_01 s3_01 z1_1000 z2_1000 z3_1000 z1 z2 z3 agyears1000 ViolentCrimeRate_Gallup_ln prison e_migdppcln Total_Score iso3

save "C:\Users\carlhk\Dropbox\Homicide\Replication\Main_dataset_replication.dta", replace
cd "C:\Users\carlhk\Dropbox\Homicide\Replication"

sort country_id year
xtset country_id year


****** Generating homocide variable(s) with extensive coverage for main analyses: 

* homicides_UN_1: from WDI 2017
* homicides_UN_2: from WDI 2020
* homicides_UN_3: combined var

gen homicides_UN_3 = homicides_UN_2
replace homicides_UN_3 = homicides_UN_1 if homicides_UN_3 ==. & homicides_UN_1 !=.

gen homicides_UN_3_ln = homicides_UN_2_ln
replace homicides_UN_3_ln = homicides_UN_1_ln if homicides_UN_3_ln ==. & homicides_UN_1_ln !=.


*****************************************************************************
************** Figures and Tables in the article ****************************
*****************************************************************************


****** Figure 2: Scatterplot
qui twoway (scatter homicides_UN_3_ln_mean adjstate if year==2010, mlabel(country_label) msize(tiny) mlabsize(tiny)) (lfit homicides_UN_3_ln_mean adjstate if year == 2010), graphregion(color(white)) ytitle("Homicides per 100,000 (log)", size(small)) ylabe(,nogrid) xtitle("Ancestry-adjusted State History (2% discount)", size(small)) title("Predictive Margins with 95% CIs")
graph export "Figure_1.png", replace
capture graph export "Figure_1.pdf", replace
capture graph export "Figure_1.eps", replace

* to examine residuals...
reg homicides_UN_3_ln_mean adjstate if year==2010, 
predict xb_4 if e(sample), residuals
sort xb_4
list country_name xb_4 if xb_4 !=.


****** Table 1: Specification tests 

* minimal
reg homicides_UN_3_ln adjstate c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_1_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* geographic
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_1_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib) append
qui drop sample

* + medieval, early modern (parsimonious
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_1_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global) append
qui drop sample

* + medieval, early modern (benchmark)
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_1_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample


****** Figure 4: Predicted values 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth  year, vce(cluster country_id)
qui margins, at(adjstate=(0(.2)1))
marginsplot, ysc(r(0(1)5)) ylabel(0(1)5) ytitle("Homicides per 100,000 (log)", size(small)) ylabe(,nogrid) xtitle("Ancestry-adjusted State History (2% discount)", size(small)) title("Predictive Margins with 95% CIs", color(black) size(medium)) recast(line) recastci(rarea) ciopts(color(gs8)) plotopts(lc(black)) graphregion(color(white))
graph export "Figure_2.png", replace
capture graph export "Figure_2.pdf", replace
capture graph export "Figure_2.eps", replace


****** Table_2: Additional specification tests

* benchmark
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) replace 
qui drop sample

* + regions
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year i.e_regionpol4, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) append
qui drop sample

* latitude (Latitude_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Latitude_ln, vce(cluster country_id)    
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Latitude_ln) append
qui drop sample

* agricultural suitability (suita_GAEZ)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year suita_GAEZ, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate suita_GAEZ) append
qui drop sample

* ruggedness (rugged)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year rugged, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate rugged) append
qui drop sample

* island (Island)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Island, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Island) append
qui drop sample

* natural borders (natborders)
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year natborders, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate natborders) append
qui drop sample

* area (area_imp_ext_corrected_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year area_imp_ext_corrected_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate area_imp_ext_corrected_ln) append
qui drop sample

* oil income per capita (e_Total_Oil_Income_PC_ext) 
* to fill in missing values in recent years...
sort country_id year
gen e_Total_Oil_Income_PC_ext = e_Total_Oil_Income_PC 
by country_id: replace e_Total_Oil_Income_PC_ext = l.e_Total_Oil_Income_PC_ext if e_Total_Oil_Income_PC_ext == .
sort country_id year 

reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_Total_Oil_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_Total_Oil_Income_PC_ext) append
qui drop sample

* mineral resources per capita (e_Total_Resources_Income_PC_ext)
* to fill in missing values in recent years...
gen e_Total_Resources_Income_PC_ext = e_Total_Resources_Income_PC
by country_id: replace e_Total_Resources_Income_PC_ext = l.e_Total_Resources_Income_PC_ext if e_Total_Resources_Income_PC_ext == .
sort country_id year

qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_Total_Resources_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_Total_Resources_Income_PC_ext) append
qui drop sample

* GDP per capita (log) (est_Maddison2018_gdppc_ppp_bt_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year est_Maddison2018_gdppc_ppp_bt_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate est_Maddison2018_gdppc_ppp_bt_ln) append
qui drop sample

* inequality
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_peginiwi, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_peginiwi) append
qui drop sample

* internal conflict (ucdp_type3) (from QoG)
* replace ucdp_type3 = 0 if ucdp_type3 == . & year > 1945 & year < 2020
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year ucdp_type3, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ucdp_type3) append
qui drop sample

* battlefield casualties (bdeadlow_sum_nomiss_per1000)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year bdeadlow_sum_nomiss_per1000, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate bdeadlow_sum_nomiss_per1000) append
qui drop sample

* population (Maddison_pop_estimate_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Maddison_pop_estimate_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Maddison_pop_estimate_ln) append
qui drop sample

* population growth (PopulationgrowthannualSP)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year PopulationgrowthannualSP, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate PopulationgrowthannualSP) append
qui drop sample

* pop density in 1500 (ln_pd1500)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year ln_pd1500, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ln_pd1500) append
qui drop sample

* pop density (Populationdensitypeoplepers)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Populationdensitypeoplepers, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Populationdensitypeoplepers) append
qui drop sample

* urbanization (Urbanpopulationoftotalpop)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Urbanpopulationoftotalpop, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Urbanpopulationoftotalpop) append
qui drop sample

* male youth (youth_male_ipo) 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year youth_male_ipo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate youth_male_ipo) append
qui drop sample

* sex ratio at birth (Sexratioatbirthmalebirths) 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Sexratioatbirthmalebirths, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Sexratioatbirthmalebirths) append
qui drop sample

* sex ratio in labor force (Ratiooffemaletomalelaborfo) 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Ratiooffemaletomalelaborfo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Ratiooffemaletomalelaborfo) append
qui drop sample

* infant mortality rate (log) (Mortalityrateinfantper100_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year Mortalityrateinfantper100_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Mortalityrateinfantper100_ln) append
qui drop sample

* educational attainment, 15+ (e_peaveduc)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_peaveduc, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_peaveduc) append
qui drop sample

* literacy (e_literacy_ext)
* gen e_literacy_ext = e_literacy
* by country_id: replace e_literacy_ext = l.e_literacy_ext if e_literacy_ext == . 
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_literacy_ext , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_literacy_ext) append
qui drop sample

* ethnic fract (al_ethnic)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year al_ethnic, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate al_ethnic) append
qui drop sample

* linguistic fract (al_language)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year al_language, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate al_language) append
qui drop sample

* religious fract (al_religion)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year al_religion, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate al_religion) append
qui drop sample

*** Protestantism (chrstprotpct)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year chrstprotpct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate chrstprotpct) append
qui drop sample

* year of independence (yr_indep_1776)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year yr_indep_1776, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate yr_indep_1776) append
qui drop sample

* democracy + democracy2 (c.v2x_polyarchy##c.v2x_polyarchy)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year c.v2x_polyarchy##c.v2x_polyarchy, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate c.v2x_polyarchy##c.v2x_polyarchy) append
qui drop sample

* democracy stock
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year v2x_polyarchy_stock_1, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate v2x_polyarchy_stock_1) append
qui drop sample

* control of corruption, WB (wbgi_cce), 
* interpolation
* by country_id: replace wbgi_cce = l.wbgi_cce if wbgi_cce == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year wbgi_cce, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_cce) append
qui drop sample

* govt effectiveness, WB (wbgi_gee)
* interpolation
* by country_id: replace wbgi_gee = l.wbgi_gee if wbgi_gee == .
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year wbgi_gee, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_gee) append
qui drop sample

* Political Stability and Absence of Violence/Terrorism, WB (wbgi_pve)
* interpolation
* by country_id: replace wbgi_pve = l.wbgi_pve if wbgi_pve == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year wbgi_pve, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_pve) append
qui drop sample

* rule of law, WB (wbgi_rle)
* interpolation
*by country_id: replace wbgi_rle = l.wbgi_rle if wbgi_rle == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year wbgi_rle, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_rle) append
qui drop sample

* Rigorous and impartial public administration, VDem (v2clrspct)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year v2clrspct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate v2clrspct) append
qui drop sample

* Kinship intensity index (Henrich)
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global KII c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_2rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate KII) append
qui drop sample






******** Table 3 

qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_Total_Resources_Income_PC_ext e_peginiwi ucdp_type3 PopulationgrowthannualSP Populationdensitypeoplepers youth_male_ipo Mortalityrateinfantper100_ln c.v2x_polyarchy##c.v2x_polyarchy v2clrspct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_3.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth e_Total_Resources_Income_PC_ext e_peginiwi ucdp_type3 PopulationgrowthannualSP Populationdensitypeoplepers youth_male_ipo Mortalityrateinfantper100_ln c.v2x_polyarchy##c.v2x_polyarchy v2clrspct) replace
qui drop sample

qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year e_Total_Resources_Income_PC_ext e_peginiwi ucdp_type3 PopulationgrowthannualSP Populationdensitypeoplepers youth_male_ipo Mortalityrateinfantper100_ln c.v2x_polyarchy##c.v2x_polyarchy wbgi_pve, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_3.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth e_Total_Resources_Income_PC_ext e_peginiwi ucdp_type3 PopulationgrowthannualSP Populationdensitypeoplepers youth_male_ipo Mortalityrateinfantper100_ln c.v2x_polyarchy##c.v2x_polyarchy wbgi_pve) append
qui drop sample





****** Table 4: Sample exclusions

* excluding outliers
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if homicides_UN_3 < 30, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* Excluding Western Europe
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 1, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Northern Europe
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 2, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Southern Europe
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 3, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Eastern Europe
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 4, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Northern Africa
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 5, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Western Africa
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 6, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Middle Africa
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 7, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Eastern Africa
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 8, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Southern Africa
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 9, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Western Asia
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 10, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Central Asia
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 11, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding East Asia
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 12, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Southeast Asia
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 13, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding South Asia
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 14, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Oceania (including Australia and the Pacific)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 15, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding North America
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 16, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Central America
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 17, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding South America
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 18, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Excluding Caribbean (including Belize, Cuba, Haiti, Dominican Republic and Guyana)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if e_regiongeo != 19, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_4rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample


****** Table_5: Alternate measures of homicide

* UN (WDI)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* WHO
qui reg homicides_WHO_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* UN (WDI), restricted to WHO sample
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year if homicides_WHO_ln !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample


****** Table_6: Alternate years
* for group-mean option use: homicides_UN_3_ln_mean (note: this gives countries with very little data equal weight to those with lots of data)

* 1990
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   if year == 1990 & x_2 !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_6.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* 1995
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   if year == 1995 & x_2 !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_6.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* 2000
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   if year == 2000 & x_2 !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_6.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* 2005
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   if year == 2005 & x_2 !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_6.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* 2010
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   if year == 2010 & x_2 !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_6.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* 2015
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   if year == 2015 & x_2 !=., vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_6.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample





****** Table 7: Alternate measures of state history

* all vars are drawn from the dataset associated with Borcan et al (2018)
* State history vars (N=159) 
* Ancestry adjusted state history vars (N=152)

describe statehiste* s0* age2000 s2_01 s3_01, full

* Govt above tribal level in 1000 
qui reg homicides_UN_3_ln z1_1000 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(z1_1000) replace
qui drop sample

* Govt locally based in 1000 CE
qui reg homicides_UN_3_ln z2_1000 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(z2_1000) append
qui drop sample

* Share of territory ruled by state in 1000 
qui reg homicides_UN_3_ln z3_1000 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(z3_1000) append
qui drop sample

* Statehist (1% discount)
qui reg homicides_UN_3_ln statehiste01n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste01n) append
qui drop sample

* Statehist 1-1950 CE (1% discount)
qui reg homicides_UN_3_ln statehiste1_1950_01n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste1_1950_01n) append
qui drop sample

* Statehist in 1500 CE (1% discount)
qui reg homicides_UN_3_ln statehiste1500_01n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste1500_01n) append
qui drop sample

* Statehist of 1 CE (1% discount)
qui reg homicides_UN_3_ln statehiste0_01n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste0_01n) append
qui drop sample

* Statehist (0.1% discount)
qui reg homicides_UN_3_ln statehiste001n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste001n) append
qui drop sample

* Statehist (2% discount)
qui reg homicides_UN_3_ln statehiste02n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste02n) append
qui drop sample

* Statehist of 1500 CE (0.1% discount)
qui reg homicides_UN_3_ln statehiste1500_001n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste1500_001n) append
qui drop sample

* Statehist of 1500 CE (2% discount)
qui reg homicides_UN_3_ln statehiste1500_02n avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(statehiste1500_02n) append
qui drop sample

summarize age2000
* State Age
qui reg homicides_UN_3_ln age2000 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(age2000) append
qui drop sample

* Ancestry-Adjusted Statehist (0.1% discount)
qui reg homicides_UN_3_ln s001n_mig1 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(s001n_mig1) append
qui drop sample

* Ancestry-Adjusted Statehist (1% discount)
qui reg homicides_UN_3_ln s01n_mig1 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(s01n_mig1) append
qui drop sample

* Ancestry-Adjusted Statehist (2% discount) (benchmark)
qui reg homicides_UN_3_ln s02n_mig1 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(s02n_mig1) append
qui drop sample

* Ancestry-Adjusted Statehist 0-2000 (5% discount) (benchmark)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Ancestry-Adjusted Statehist 0-2000 (5% discount) (extended)
* countries used to infer missing values are noted by adjstate_coding (year == 1960)
qui reg homicides_UN_3_ln adjstate_ext avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate_ext) append
qui drop sample




****** Table 8: Instrumental variable analysis
**First stage regression added manually to table
* IV analysis
qui ivregress 2sls homicides_UN_3_ln avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth year (adjstate = agyears1000) ,first vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_8.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib duration_global eur_pct_est_smooth) replace 
qui drop sample





****** Table 9: other measures

* muggings and assaults
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_9.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* incarceration
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_9.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample





*********************************************************************
****** Figures and Tables for Online Supplementary Material *********
*********************************************************************





****** Table S2: Descriptive statistics

reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year, vce(cluster country_id) 
estimates store a

summarize homicides_UN_3_ln adjstate z1_1000 z2_1000 z3_1000 statehiste01n statehiste1_1950_01n statehiste1500_01n statehiste0_01n statehiste001n statehiste02n statehiste1500_001n statehiste1500_02n age2000 s001n_mig1 s01n_mig1 avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year i.e_regionpol4 Latitude_ln suita_GAEZ rugged Island natborders area_imp_ext_corrected_ln e_Total_Oil_Income_PC_ext e_Total_Resources_Income_PC_ext est_Maddison2018_gdppc_ppp_bt_ln e_peginiwi ucdp_type3 bdeadlow_sum_nomiss_per1000 Maddison_pop_estimate_ln PopulationgrowthannualSP ln_pd1500 Populationdensitypeoplepers Urbanpopulationoftotalpop  youth_male_ipo Sexratioatbirthmalebirths Ratiooffemaletomalelaborfo Mortalityrateinfantper100_ln e_peaveduc e_literacy_ext al_ethnic al_language al_religion chrstprotpct yr_indep_1776 v2x_polyarchy v2x_polyarchy_stock_1 wbgi_gee wbgi_pve wbgi_rle v2clrspct agyears1000 if _est_a==1

reg homicides_WHO_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year, vce(cluster country_id) 
estimates store a
summarize homicides_WHO_ln if _est_a==1

reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth, vce(cluster country_id)
estimates store a
summarize ViolentCrimeRate_Gallup_ln if _est_a==1

reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln c.year##c.year, vce(cluster country_id)
estimates store a
summarize prison if _est_a==1

save "C:\Users\carlhk\Dropbox\Homicide\Replication\Main_dataset_replication.dta", replace

use "C:\Users\carlhk\Dropbox\Homicide\Replication\WVS_EVS_wave7_2.dta", clear 

reg F114A adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c , vce(cluster country_id)
estimates store a
summarize F114A E290 X003 X001 X025R V004RM X028 i.size_5c if _est_a==1

reg F115 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c , vce(cluster country_id)
estimates store a
summarize F115 if _est_a==1


reg F116 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c , vce(cluster country_id)
estimates store a
summarize F116 if _est_a==1


reg F117 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c , vce(cluster country_id)
estimates store a
summarize F117 if _est_a==1


reg E290 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c , vce(cluster country_id)
estimates store a
summarize E290 if _est_a==1



****** Figure S1: Histograms of homicide rates
use "C:\Users\carlhk\Dropbox\Homicide\Replication\Main_dataset_replication.dta"
qui hist homicides_UN_3, xtitle("Homicide rate")
graph export "Figure_A_1a.png", replace
capture graph export "Figure_A_1a.pdf", replace
capture graph export "Figure_A_1a.eps", replace

qui hist homicides_UN_3_ln, xtitle("Homicide rate (log)")
graph export "Figure_A_1b.png", replace
capture graph export "Figure_A_1b.pdf", replace
capture graph export "Figure_A_1b.eps", replace


****** Figure S2: Histograms of state history, ancestry adjusted

qui hist adjstate, xtitle("State history (ancestry-adjusted)")
graph export "Figure_A_2.png", replace
capture graph export "Figure_A_2.pdf", replace
capture graph export "Figure_A_2.eps", replace


****** Table S3: Countries and their Ancestry-adjusted State History Scores

sort adjstate
list country_name adjstate if year == 2000


****** Table S4: Additional specification tests for muggings, assaults
* replicates Table 2

* benchmark
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) replace 
qui drop sample

* + regions
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    i.e_regionpol4, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) append
qui drop sample

* latitude (Latitude_ln)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Latitude_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) append
qui drop sample

* agricultural suitability (suita_GAEZ)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    suita_GAEZ, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* ruggedness (rugged)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    rugged, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* island (Island)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Island, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* natural borders (natborders)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    natborders, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* area (area_imp_ext_corrected_ln)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    area_imp_ext_corrected_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* oil income per capita (e_Total_Oil_Income_PC_ext)
* to fill in missing values in recent years...
*gen e_Total_Oil_Income_PC_ext = e_Total_Oil_Income_PC
*by country_id: replace e_Total_Oil_Income_PC_ext = l.e_Total_Oil_Income_PC_ext if e_Total_Oil_Income_PC_ext == .
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    e_Total_Oil_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* mineral resources per capita (e_Total_Resources_Income_PC_ext)
* to fill in missing values in recent years...
*gen e_Total_Resources_Income_PC_ext = e_Total_Resources_Income_PC
*by country_id: replace e_Total_Resources_Income_PC_ext = l.e_Total_Resources_Income_PC_ext if e_Total_Resources_Income_PC_ext == .
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    e_Total_Resources_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* GDP per capita (log) (est_Maddison2018_gdppc_ppp_bt_ln)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    est_Maddison2018_gdppc_ppp_bt_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* inequality
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    e_peginiwi, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* internal conflict (ucdp_type3) (from QoG)
* replace ucdp_type3 = 0 if ucdp_type3 == . & year > 1945 & year < 2020
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    ucdp_type3, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

sort country_id year
* battlefield casualties (bdeadlow_sum_nomiss_per1000)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    l3.bdeadlow_sum_nomiss_per1000, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* population (Maddison_pop_estimate_ln)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Maddison_pop_estimate_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* population growth (PopulationgrowthannualSP)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    PopulationgrowthannualSP, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* pop density in 1500 (ln_pd1500)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    ln_pd1500, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* pop density (Populationdensitypeoplepers)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Populationdensitypeoplepers, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* urbanization (Urbanpopulationoftotalpop)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Urbanpopulationoftotalpop, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* male youth (youth_male_ipo) 
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    youth_male_ipo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* sex ratio at birth (Sexratioatbirthmalebirths) 
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Sexratioatbirthmalebirths, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* sex ratio in labor force (Ratiooffemaletomalelaborfo) 
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Ratiooffemaletomalelaborfo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* infant mortality rate (log) (Mortalityrateinfantper100_ln)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    Mortalityrateinfantper100_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* educational attainment, 15+ (e_peaveduc)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    e_peaveduc, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* literacy (e_literacy_ext)
* gen e_literacy_ext = e_literacy
* by country_id: replace e_literacy_ext = l.e_literacy_ext if e_literacy_ext == . 
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    e_literacy_ext , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* ethnic fract (al_ethnic)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    al_ethnic, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* linguistic fract (al_language)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    al_language, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* religious fract (al_religion)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    al_religion, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

*** Protestantism (chrstprotpct)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    chrstprotpct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* year of independence (yr_indep_1776)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    yr_indep_1776, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* democracy + democracy2 (c.v2x_polyarchy##c.v2x_polyarchy)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.v2x_polyarchy##c.v2x_polyarchy, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* democracy stock
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    v2x_polyarchy_stock_1, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* control of corruption, WB (wbgi_cce), 
* interpolation
* by country_id: replace wbgi_cce = l.wbgi_cce if wbgi_cce == .
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    wbgi_cce, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* govt effectiveness, WB (wbgi_gee)
* interpolation
* by country_id: replace wbgi_gee = l.wbgi_gee if wbgi_gee == .
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    wbgi_gee, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Political Stability and Absence of Violence/Terrorism, WB (wbgi_pve)
* interpolation
* by country_id: replace wbgi_pve = l.wbgi_pve if wbgi_pve == .
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    wbgi_pve, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* rule of law, WB (wbgi_rle)
* interpolation
* by country_id: replace wbgi_rle = l.wbgi_rle if wbgi_rle == .
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    wbgi_rle, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Rigorous and impartial public administration, VDem (v2clrspct)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    v2clrspct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Kinship intensity index (KII)
qui reg ViolentCrimeRate_Gallup_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth  KII, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A4.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample




****** Table S5: Specification tests for incarceration rates
* specifications follow Table_2 with the addition of GDP (from Table 9)


* benchmark
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) replace 
qui drop sample

* + regions
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year i.e_regionpol4, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) append
qui drop sample

* latitude (Latitude_ln)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Latitude_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* agricultural suitability (suita_GAEZ)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year suita_GAEZ, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* ruggedness (rugged)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year rugged, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* island (Island)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Island, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* natural borders (natborders)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year natborders, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* area (area_imp_ext_corrected_ln)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year area_imp_ext_corrected_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* oil income per capita (e_Total_Oil_Income_PC_ext)
* to fill in missing values in recent years...
* gen e_Total_Oil_Income_PC_ext = e_Total_Oil_Income_PC
* by country_id: replace e_Total_Oil_Income_PC_ext = l.e_Total_Oil_Income_PC_ext if e_Total_Oil_Income_PC_ext == .
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year e_Total_Oil_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* mineral resources per capita (e_Total_Resources_Income_PC_ext)
* to fill in missing values in recent years...
* gen e_Total_Resources_Income_PC_ext = e_Total_Resources_Income_PC
* by country_id: replace e_Total_Resources_Income_PC_ext = l.e_Total_Resources_Income_PC_ext if e_Total_Resources_Income_PC_ext == .
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year e_Total_Resources_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* GDP per capita (log) (est_Maddison2018_gdppc_ppp_bt_ln)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year est_Maddison2018_gdppc_ppp_bt_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* inequality
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year e_peginiwi, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* internal conflict (ucdp_type3) (from QoG)
* replace ucdp_type3 = 0 if ucdp_type3 == . & year > 1945 & year < 2020
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year ucdp_type3, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* battlefield casualties (bdeadlow_sum_nomiss_per1000)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year bdeadlow_sum_nomiss_per1000, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* population (Maddison_pop_estimate_ln)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Maddison_pop_estimate_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample


* population growth (PopulationgrowthannualSP)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year PopulationgrowthannualSP, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* pop density in 1500 (ln_pd1500)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year ln_pd1500, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* pop density (Populationdensitypeoplepers)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Populationdensitypeoplepers, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* urbanization (Urbanpopulationoftotalpop)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Urbanpopulationoftotalpop, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* male youth (youth_male_ipo) 
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year youth_male_ipo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* sex ratio at birth (Sexratioatbirthmalebirths) 
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Sexratioatbirthmalebirths, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* sex ratio in labor force (Ratiooffemaletomalelaborfo) 
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Ratiooffemaletomalelaborfo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample


* infant mortality rate (log) (Mortalityrateinfantper100_ln)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year Mortalityrateinfantper100_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* educational attainment, 15+ (e_peaveduc)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year e_peaveduc, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* literacy (e_literacy_ext)
* gen e_literacy_ext = e_literacy
* by country_id: replace e_literacy_ext = l.e_literacy_ext if e_literacy_ext == . 
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year e_literacy_ext , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* ethnic fract (al_ethnic)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year al_ethnic, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* linguistic fract (al_language)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year al_language, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* religious fract (al_religion)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year al_religion, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

*** Protestantism (chrstprotpct)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year chrstprotpct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* year of independence (yr_indep_1776)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year yr_indep_1776, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* democracy + democracy2 (c.v2x_polyarchy##c.v2x_polyarchy)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year c.v2x_polyarchy##c.v2x_polyarchy, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* democracy stock
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year v2x_polyarchy_stock_1, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* control of corruption, WB (wbgi_cce), 
* interpolation
* by country_id: replace wbgi_cce = l.wbgi_cce if wbgi_cce == .
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year wbgi_cce, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* govt effectiveness, WB (wbgi_gee)
* interpolation
* by country_id: replace wbgi_gee = l.wbgi_gee if wbgi_gee == .
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year wbgi_gee, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Political Stability and Absence of Violence/Terrorism, WB (wbgi_pve)
* interpolation
* by country_id: replace wbgi_pve = l.wbgi_pve if wbgi_pve == .
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year wbgi_pve, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* rule of law, WB (wbgi_rle)
* interpolation
* by country_id: replace wbgi_rle = l.wbgi_rle if wbgi_rle == .
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year wbgi_rle, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Rigorous and impartial public administration, VDem (v2clrspct)
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln   c.year##c.year v2clrspct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample


* For R&R version, controlling for KII
qui reg prison adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.e_migdppcln##c.e_migdppcln  c.year##c.year KII, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_A5.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample




****** Table S6: Replicating Table 2 but on alternative version benchmark (omitting European ancestry)

* benchmark
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) replace 
qui drop sample

* + regions
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year i.e_regionpol4, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ) append
qui drop sample

* latitude (Latitude_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Latitude_ln, vce(cluster country_id)    
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Latitude_ln) append
qui drop sample

* agricultural suitability (suita_GAEZ)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year suita_GAEZ, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate suita_GAEZ) append
qui drop sample

* ruggedness (rugged)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year rugged, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate rugged) append
qui drop sample

* island (Island)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Island, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Island) append
qui drop sample

* natural borders (natborders)
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year natborders, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate natborders) append
qui drop sample

* area (area_imp_ext_corrected_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year area_imp_ext_corrected_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate area_imp_ext_corrected_ln) append
qui drop sample

* oil income per capita (e_Total_Oil_Income_PC_ext) 
* to fill in missing values in recent years...
* gen e_Total_Oil_Income_PC_ext = e_Total_Oil_Income_PC
* by country_id: replace e_Total_Oil_Income_PC_ext = l.e_Total_Oil_Income_PC_ext if e_Total_Oil_Income_PC_ext == .
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year e_Total_Oil_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_Total_Oil_Income_PC_ext) append
qui drop sample

* mineral resources per capita (e_Total_Resources_Income_PC_ext)
* to fill in missing values in recent years...
* gen e_Total_Resources_Income_PC_ext = e_Total_Resources_Income_PC
* by country_id: replace e_Total_Resources_Income_PC_ext = l.e_Total_Resources_Income_PC_ext if e_Total_Resources_Income_PC_ext == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year e_Total_Resources_Income_PC_ext, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_Total_Resources_Income_PC_ext) append
qui drop sample

* GDP per capita (log) (est_Maddison2018_gdppc_ppp_bt_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year est_Maddison2018_gdppc_ppp_bt_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate est_Maddison2018_gdppc_ppp_bt_ln) append
qui drop sample

* inequality
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year e_peginiwi, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_peginiwi) append
qui drop sample

* internal conflict (ucdp_type3) (from QoG)
* replace ucdp_type3 = 0 if ucdp_type3 == . & year > 1945 & year < 2020
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year ucdp_type3, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ucdp_type3) append
qui drop sample

* battlefield casualties (bdeadlow_sum_nomiss_per1000)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year bdeadlow_sum_nomiss_per1000, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate bdeadlow_sum_nomiss_per1000) append
qui drop sample

* population (Maddison_pop_estimate_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Maddison_pop_estimate_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Maddison_pop_estimate_ln) append
qui drop sample

* population growth (PopulationgrowthannualSP)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year PopulationgrowthannualSP, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate PopulationgrowthannualSP) append
qui drop sample

* pop density in 1500 (ln_pd1500)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year ln_pd1500, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate ln_pd1500) append
qui drop sample

* pop density (Populationdensitypeoplepers)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Populationdensitypeoplepers, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Populationdensitypeoplepers) append
qui drop sample

* urbanization (Urbanpopulationoftotalpop)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Urbanpopulationoftotalpop, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Urbanpopulationoftotalpop) append
qui drop sample

* male youth (youth_male_ipo) 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year youth_male_ipo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate youth_male_ipo) append
qui drop sample

* sex ratio at birth (Sexratioatbirthmalebirths) 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Sexratioatbirthmalebirths, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Sexratioatbirthmalebirths) append
qui drop sample

* sex ratio in labor force (Ratiooffemaletomalelaborfo) 
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Ratiooffemaletomalelaborfo, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Ratiooffemaletomalelaborfo) append
qui drop sample

* infant mortality rate (log) (Mortalityrateinfantper100_ln)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year Mortalityrateinfantper100_ln, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate Mortalityrateinfantper100_ln) append
qui drop sample

* educational attainment, 15+ (e_peaveduc)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year e_peaveduc, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_peaveduc) append
qui drop sample

* literacy (e_literacy_ext)
* gen e_literacy_ext = e_literacy
* by country_id: replace e_literacy_ext = l.e_literacy_ext if e_literacy_ext == . 
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year e_literacy_ext , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate e_literacy_ext) append
qui drop sample

* ethnic fract (al_ethnic)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year al_ethnic, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate al_ethnic) append
qui drop sample

* linguistic fract (al_language)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year al_language, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate al_language) append
qui drop sample

* religious fract (al_religion)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year al_religion, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate al_religion) append
qui drop sample

*** Protestantism (chrstprotpct)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year chrstprotpct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate chrstprotpct) append
qui drop sample

* year of independence (yr_indep_1776)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year yr_indep_1776, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate yr_indep_1776) append
qui drop sample

* democracy + democracy2 (c.v2x_polyarchy##c.v2x_polyarchy)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year c.v2x_polyarchy##c.v2x_polyarchy, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate c.v2x_polyarchy##c.v2x_polyarchy) append
qui drop sample

* democracy stock
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year v2x_polyarchy_stock_1, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate v2x_polyarchy_stock_1) append
qui drop sample

* control of corruption, WB (wbgi_cce), 
* interpolation
* by country_id: replace wbgi_cce = l.wbgi_cce if wbgi_cce == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year wbgi_cce, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_cce) append
qui drop sample

* govt effectiveness, WB (wbgi_gee)
* interpolation
* by country_id: replace wbgi_gee = l.wbgi_gee if wbgi_gee == .
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year wbgi_gee, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_gee) append
qui drop sample

* Political Stability and Absence of Violence/Terrorism, WB (wbgi_pve)
* interpolation
* by country_id: replace wbgi_pve = l.wbgi_pve if wbgi_pve == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year wbgi_pve, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_pve) append
qui drop sample

* rule of law, WB (wbgi_rle)
* interpolation
*by country_id: replace wbgi_rle = l.wbgi_rle if wbgi_rle == .
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year wbgi_rle, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate wbgi_rle) append
qui drop sample

* Rigorous and impartial public administration, VDem (v2clrspct)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global   c.year##c.year v2clrspct, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate v2clrspct) append
qui drop sample


*** kinship intensity index (Henrich)
qui reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global KII c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Appx_alternative_2.doc, nor noni nonot nocon sideway stats(coef tstat beta) paren(tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate KII) append
qui drop sample






****** Table S7: Replicating Table 1, but only using the most recent version of the UNODC data

summarize homicides_UN_4
generate homicides_UN_4_ln = ln(homicides_UN_4+1)
summarize homicides_UN_4 homicides_UN_4_ln 
* minimal
reg homicides_UN_4_ln adjstate c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* geographic
reg homicides_UN_4_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib) append
qui drop sample

* + medieval, early modern (parsimonious
reg homicides_UN_4_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global) append
qui drop sample

* + medieval, early modern (benchmark)
reg homicides_UN_4_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A7_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample






****** Table S8:  Data quality & uncertainty

**replication benchmark
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A8wls_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) replace
qui drop sample

**Only fair and good quality data
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year if (Total_Score>1 & Total_Score!=.), vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A8wls_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample

**Only fair and good quality data
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth c.year##c.year if (Total_Score>2 & Total_Score!=.), vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A8wls_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample


*Weighted Least Squares. Absolute value residuals 
regwls homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth year yearsquared, wvar(Total_Score) type(abse) robust
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A8wls_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth Total_Score) append
qui drop sample

*Weighted Least Squares. Absolute value residuals with control data quality
regwls homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth year yearsquared Total_Score, wvar(Total_Score) type(abse) robust
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A8wls_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth Total_Score) append
qui drop sample

*Weighted Least Squares. Squared residuals with control data quality
regwls homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth year yearsquared Total_Score, wvar(Total_Score) type(e2) robust
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A8wls_rev.doc, nor noni nonot nocon stats(coef tstat beta) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth Total_Score) append
qui drop sample


******* Figure S3: Assessing State history with varying discount rates 
use "C:\Users\carlhk\Dropbox\Homicide\Replication\Main_dataset_replication.dta", clear
*First need to merge in state history data disaggregated by 50 year period, scored as variables starting with q for each time period (q0= 1951-2000, q1= 1901-1950, ...., q119 = 3951BC-4000BC)
merge m:1 country_id using "C:\Users\carlhk\Dropbox\Homicide\Replication\statehist_disaggregated.dta", generate(_merge_chk)

**Create two artificial observations for pursposes of normalization:
set obs 82692
replace iso3 = "9998" in 82692

set obs 82693
replace iso3 = "9999" in 82693

foreach var of varlist q0-q119 {
  replace `var' = 0 if iso3=="9998"
} 

foreach var of varlist q0-q119 {
  replace `var' = 50 if iso3=="9999"
} 

***Generate different versions of state history with different discount rates

**All periods, discount 99,9%
generate c0c119_999 = q0+(0.999^1)*q1+(0.999^2)*q2+(0.999^3)*q3+(0.999^4)*q4+(0.999^5)*q5+(0.999^6)*q6+(0.999^7)*q7+(0.999^8)*q8+(0.999^9)*q9 ///
+(0.999^10)*q10+(0.999^11)*q11+(0.999^12)*q12+(0.999^13)*q13+(0.999^14)*q14+(0.999^15)*q15+(0.999^16)*q16+(0.999^17)*q17+(0.999^18)*q18+(0.999^19)*q19 ///
+(0.999^20)*q20+(0.999^21)*q21+(0.999^22)*q22+(0.999^23)*q23+(0.999^24)*q24+(0.999^25)*q25+(0.999^26)*q26+(0.999^27)*q27+(0.999^28)*q28+(0.999^29)*q29 ///
+(0.999^30)*q30+(0.999^31)*q31+(0.999^32)*q32+(0.999^33)*q33+(0.999^34)*q34+(0.999^35)*q35+(0.999^36)*q36+(0.999^37)*q37+(0.999^38)*q38+(0.999^39)*q39 ///
+(0.999^40)*q40+(0.999^41)*q41+(0.999^42)*q42+(0.999^43)*q43+(0.999^44)*q44+(0.999^45)*q45+(0.999^46)*q46+(0.999^47)*q47+(0.999^48)*q48+(0.999^49)*q49 ///
+(0.999^50)*q50+(0.999^51)*q51+(0.999^52)*q52+(0.999^53)*q53+(0.999^54)*q54+(0.999^55)*q55+(0.999^56)*q56+(0.999^57)*q57+(0.999^58)*q58+(0.999^59)*q59 ///
+(0.999^60)*q60+(0.999^61)*q61+(0.999^62)*q62+(0.999^63)*q63+(0.999^64)*q64+(0.999^65)*q65+(0.999^66)*q66+(0.999^67)*q67+(0.999^68)*q68+(0.999^69)*q69 ///
+(0.999^70)*q70+(0.999^71)*q71+(0.999^72)*q72+(0.999^73)*q73+(0.999^74)*q74+(0.999^75)*q75+(0.999^76)*q76+(0.999^77)*q77+(0.999^78)*q78+(0.999^79)*q79 ///
+(0.999^80)*q80+(0.999^81)*q81+(0.999^82)*q82+(0.999^83)*q83+(0.999^84)*q84+(0.999^85)*q85+(0.999^86)*q86+(0.999^87)*q87+(0.999^88)*q88+(0.999^89)*q89 ///
+(0.999^90)*q90+(0.999^91)*q91+(0.999^92)*q92+(0.999^93)*q93+(0.999^94)*q94+(0.999^95)*q95+(0.999^96)*q96+(0.999^97)*q97+(0.999^98)*q98+(0.999^99)*q99 ///
+(0.999^100)*q100+(0.999^101)*q101+(0.999^102)*q102+(0.999^103)*q103+(0.999^104)*q104+(0.999^105)*q105+(0.999^106)*q106+(0.999^107)*q107+(0.999^108)*q108+(0.999^109)*q109 ///
+(0.999^110)*q110+(0.999^111)*q111+(0.999^112)*q112+(0.999^113)*q113+(0.999^114)*q114+(0.999^115)*q115+(0.999^116)*q116+(0.999^117)*q117+(0.999^118)*q118+(0.999^119)*q119

**All periods, discount 99%
generate c0c119_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

**All periods, discount 98%
generate c0c119_98 = q0+(0.98^1)*q1+(0.98^2)*q2+(0.98^3)*q3+(0.98^4)*q4+(0.98^5)*q5+(0.98^6)*q6+(0.98^7)*q7+(0.98^8)*q8+(0.98^9)*q9 ///
+(0.98^10)*q10+(0.98^11)*q11+(0.98^12)*q12+(0.98^13)*q13+(0.98^14)*q14+(0.98^15)*q15+(0.98^16)*q16+(0.98^17)*q17+(0.98^18)*q18+(0.98^19)*q19 ///
+(0.98^20)*q20+(0.98^21)*q21+(0.98^22)*q22+(0.98^23)*q23+(0.98^24)*q24+(0.98^25)*q25+(0.98^26)*q26+(0.98^27)*q27+(0.98^28)*q28+(0.98^29)*q29 ///
+(0.98^30)*q30+(0.98^31)*q31+(0.98^32)*q32+(0.98^33)*q33+(0.98^34)*q34+(0.98^35)*q35+(0.98^36)*q36+(0.98^37)*q37+(0.98^38)*q38+(0.98^39)*q39 ///
+(0.98^40)*q40+(0.98^41)*q41+(0.98^42)*q42+(0.98^43)*q43+(0.98^44)*q44+(0.98^45)*q45+(0.98^46)*q46+(0.98^47)*q47+(0.98^48)*q48+(0.98^49)*q49 ///
+(0.98^50)*q50+(0.98^51)*q51+(0.98^52)*q52+(0.98^53)*q53+(0.98^54)*q54+(0.98^55)*q55+(0.98^56)*q56+(0.98^57)*q57+(0.98^58)*q58+(0.98^59)*q59 ///
+(0.98^60)*q60+(0.98^61)*q61+(0.98^62)*q62+(0.98^63)*q63+(0.98^64)*q64+(0.98^65)*q65+(0.98^66)*q66+(0.98^67)*q67+(0.98^68)*q68+(0.98^69)*q69 ///
+(0.98^70)*q70+(0.98^71)*q71+(0.98^72)*q72+(0.98^73)*q73+(0.98^74)*q74+(0.98^75)*q75+(0.98^76)*q76+(0.98^77)*q77+(0.98^78)*q78+(0.98^79)*q79 ///
+(0.98^80)*q80+(0.98^81)*q81+(0.98^82)*q82+(0.98^83)*q83+(0.98^84)*q84+(0.98^85)*q85+(0.98^86)*q86+(0.98^87)*q87+(0.98^88)*q88+(0.98^89)*q89 ///
+(0.98^90)*q90+(0.98^91)*q91+(0.98^92)*q92+(0.98^93)*q93+(0.98^94)*q94+(0.98^95)*q95+(0.98^96)*q96+(0.98^97)*q97+(0.98^98)*q98+(0.98^99)*q99 ///
+(0.98^100)*q100+(0.98^101)*q101+(0.98^102)*q102+(0.98^103)*q103+(0.98^104)*q104+(0.98^105)*q105+(0.98^106)*q106+(0.98^107)*q107+(0.98^108)*q108+(0.98^109)*q109 ///
+(0.98^110)*q110+(0.98^111)*q111+(0.98^112)*q112+(0.98^113)*q113+(0.98^114)*q114+(0.98^115)*q115+(0.98^116)*q116+(0.98^117)*q117+(0.98^118)*q118+(0.98^119)*q119


**All periods, discount 97%
generate c0c119_97 = q0+(0.97^1)*q1+(0.97^2)*q2+(0.97^3)*q3+(0.97^4)*q4+(0.97^5)*q5+(0.97^6)*q6+(0.97^7)*q7+(0.97^8)*q8+(0.97^9)*q9 ///
+(0.97^10)*q10+(0.97^11)*q11+(0.97^12)*q12+(0.97^13)*q13+(0.97^14)*q14+(0.97^15)*q15+(0.97^16)*q16+(0.97^17)*q17+(0.97^18)*q18+(0.97^19)*q19 ///
+(0.97^20)*q20+(0.97^21)*q21+(0.97^22)*q22+(0.97^23)*q23+(0.97^24)*q24+(0.97^25)*q25+(0.97^26)*q26+(0.97^27)*q27+(0.97^28)*q28+(0.97^29)*q29 ///
+(0.97^30)*q30+(0.97^31)*q31+(0.97^32)*q32+(0.97^33)*q33+(0.97^34)*q34+(0.97^35)*q35+(0.97^36)*q36+(0.97^37)*q37+(0.97^38)*q38+(0.97^39)*q39 ///
+(0.97^40)*q40+(0.97^41)*q41+(0.97^42)*q42+(0.97^43)*q43+(0.97^44)*q44+(0.97^45)*q45+(0.97^46)*q46+(0.97^47)*q47+(0.97^48)*q48+(0.97^49)*q49 ///
+(0.97^50)*q50+(0.97^51)*q51+(0.97^52)*q52+(0.97^53)*q53+(0.97^54)*q54+(0.97^55)*q55+(0.97^56)*q56+(0.97^57)*q57+(0.97^58)*q58+(0.97^59)*q59 ///
+(0.97^60)*q60+(0.97^61)*q61+(0.97^62)*q62+(0.97^63)*q63+(0.97^64)*q64+(0.97^65)*q65+(0.97^66)*q66+(0.97^67)*q67+(0.97^68)*q68+(0.97^69)*q69 ///
+(0.97^70)*q70+(0.97^71)*q71+(0.97^72)*q72+(0.97^73)*q73+(0.97^74)*q74+(0.97^75)*q75+(0.97^76)*q76+(0.97^77)*q77+(0.97^78)*q78+(0.97^79)*q79 ///
+(0.97^80)*q80+(0.97^81)*q81+(0.97^82)*q82+(0.97^83)*q83+(0.97^84)*q84+(0.97^85)*q85+(0.97^86)*q86+(0.97^87)*q87+(0.97^88)*q88+(0.97^89)*q89 ///
+(0.97^90)*q90+(0.97^91)*q91+(0.97^92)*q92+(0.97^93)*q93+(0.97^94)*q94+(0.97^95)*q95+(0.97^96)*q96+(0.97^97)*q97+(0.97^98)*q98+(0.97^99)*q99 ///
+(0.97^100)*q100+(0.97^101)*q101+(0.97^102)*q102+(0.97^103)*q103+(0.97^104)*q104+(0.97^105)*q105+(0.97^106)*q106+(0.97^107)*q107+(0.97^108)*q108+(0.97^109)*q109 ///
+(0.97^110)*q110+(0.97^111)*q111+(0.97^112)*q112+(0.97^113)*q113+(0.97^114)*q114+(0.97^115)*q115+(0.97^116)*q116+(0.97^117)*q117+(0.97^118)*q118+(0.97^119)*q119


**All periods, discount 96%
generate c0c119_96 = q0+(0.96^1)*q1+(0.96^2)*q2+(0.96^3)*q3+(0.96^4)*q4+(0.96^5)*q5+(0.96^6)*q6+(0.96^7)*q7+(0.96^8)*q8+(0.96^9)*q9 ///
+(0.96^10)*q10+(0.96^11)*q11+(0.96^12)*q12+(0.96^13)*q13+(0.96^14)*q14+(0.96^15)*q15+(0.96^16)*q16+(0.96^17)*q17+(0.96^18)*q18+(0.96^19)*q19 ///
+(0.96^20)*q20+(0.96^21)*q21+(0.96^22)*q22+(0.96^23)*q23+(0.96^24)*q24+(0.96^25)*q25+(0.96^26)*q26+(0.96^27)*q27+(0.96^28)*q28+(0.96^29)*q29 ///
+(0.96^30)*q30+(0.96^31)*q31+(0.96^32)*q32+(0.96^33)*q33+(0.96^34)*q34+(0.96^35)*q35+(0.96^36)*q36+(0.96^37)*q37+(0.96^38)*q38+(0.96^39)*q39 ///
+(0.96^40)*q40+(0.96^41)*q41+(0.96^42)*q42+(0.96^43)*q43+(0.96^44)*q44+(0.96^45)*q45+(0.96^46)*q46+(0.96^47)*q47+(0.96^48)*q48+(0.96^49)*q49 ///
+(0.96^50)*q50+(0.96^51)*q51+(0.96^52)*q52+(0.96^53)*q53+(0.96^54)*q54+(0.96^55)*q55+(0.96^56)*q56+(0.96^57)*q57+(0.96^58)*q58+(0.96^59)*q59 ///
+(0.96^60)*q60+(0.96^61)*q61+(0.96^62)*q62+(0.96^63)*q63+(0.96^64)*q64+(0.96^65)*q65+(0.96^66)*q66+(0.96^67)*q67+(0.96^68)*q68+(0.96^69)*q69 ///
+(0.96^70)*q70+(0.96^71)*q71+(0.96^72)*q72+(0.96^73)*q73+(0.96^74)*q74+(0.96^75)*q75+(0.96^76)*q76+(0.96^77)*q77+(0.96^78)*q78+(0.96^79)*q79 ///
+(0.96^80)*q80+(0.96^81)*q81+(0.96^82)*q82+(0.96^83)*q83+(0.96^84)*q84+(0.96^85)*q85+(0.96^86)*q86+(0.96^87)*q87+(0.96^88)*q88+(0.96^89)*q89 ///
+(0.96^90)*q90+(0.96^91)*q91+(0.96^92)*q92+(0.96^93)*q93+(0.96^94)*q94+(0.96^95)*q95+(0.96^96)*q96+(0.96^97)*q97+(0.96^98)*q98+(0.96^99)*q99 ///
+(0.96^100)*q100+(0.96^101)*q101+(0.96^102)*q102+(0.96^103)*q103+(0.96^104)*q104+(0.96^105)*q105+(0.96^106)*q106+(0.96^107)*q107+(0.96^108)*q108+(0.96^109)*q109 ///
+(0.96^110)*q110+(0.96^111)*q111+(0.96^112)*q112+(0.96^113)*q113+(0.96^114)*q114+(0.96^115)*q115+(0.96^116)*q116+(0.96^117)*q117+(0.96^118)*q118+(0.96^119)*q119


**All periods, discount 95%
generate c0c119_95 = q0+(0.95^1)*q1+(0.95^2)*q2+(0.95^3)*q3+(0.95^4)*q4+(0.95^5)*q5+(0.95^6)*q6+(0.95^7)*q7+(0.95^8)*q8+(0.95^9)*q9 ///
+(0.95^10)*q10+(0.95^11)*q11+(0.95^12)*q12+(0.95^13)*q13+(0.95^14)*q14+(0.95^15)*q15+(0.95^16)*q16+(0.95^17)*q17+(0.95^18)*q18+(0.95^19)*q19 ///
+(0.95^20)*q20+(0.95^21)*q21+(0.95^22)*q22+(0.95^23)*q23+(0.95^24)*q24+(0.95^25)*q25+(0.95^26)*q26+(0.95^27)*q27+(0.95^28)*q28+(0.95^29)*q29 ///
+(0.95^30)*q30+(0.95^31)*q31+(0.95^32)*q32+(0.95^33)*q33+(0.95^34)*q34+(0.95^35)*q35+(0.95^36)*q36+(0.95^37)*q37+(0.95^38)*q38+(0.95^39)*q39 ///
+(0.95^40)*q40+(0.95^41)*q41+(0.95^42)*q42+(0.95^43)*q43+(0.95^44)*q44+(0.95^45)*q45+(0.95^46)*q46+(0.95^47)*q47+(0.95^48)*q48+(0.95^49)*q49 ///
+(0.95^50)*q50+(0.95^51)*q51+(0.95^52)*q52+(0.95^53)*q53+(0.95^54)*q54+(0.95^55)*q55+(0.95^56)*q56+(0.95^57)*q57+(0.95^58)*q58+(0.95^59)*q59 ///
+(0.95^60)*q60+(0.95^61)*q61+(0.95^62)*q62+(0.95^63)*q63+(0.95^64)*q64+(0.95^65)*q65+(0.95^66)*q66+(0.95^67)*q67+(0.95^68)*q68+(0.95^69)*q69 ///
+(0.95^70)*q70+(0.95^71)*q71+(0.95^72)*q72+(0.95^73)*q73+(0.95^74)*q74+(0.95^75)*q75+(0.95^76)*q76+(0.95^77)*q77+(0.95^78)*q78+(0.95^79)*q79 ///
+(0.95^80)*q80+(0.95^81)*q81+(0.95^82)*q82+(0.95^83)*q83+(0.95^84)*q84+(0.95^85)*q85+(0.95^86)*q86+(0.95^87)*q87+(0.95^88)*q88+(0.95^89)*q89 ///
+(0.95^90)*q90+(0.95^91)*q91+(0.95^92)*q92+(0.95^93)*q93+(0.95^94)*q94+(0.95^95)*q95+(0.95^96)*q96+(0.95^97)*q97+(0.95^98)*q98+(0.95^99)*q99 ///
+(0.95^100)*q100+(0.95^101)*q101+(0.95^102)*q102+(0.95^103)*q103+(0.95^104)*q104+(0.95^105)*q105+(0.95^106)*q106+(0.95^107)*q107+(0.95^108)*q108+(0.95^109)*q109 ///
+(0.95^110)*q110+(0.95^111)*q111+(0.95^112)*q112+(0.95^113)*q113+(0.95^114)*q114+(0.95^115)*q115+(0.95^116)*q116+(0.95^117)*q117+(0.95^118)*q118+(0.95^119)*q119


**All periods, discount 94%
generate c0c119_94 = q0+(0.94^1)*q1+(0.94^2)*q2+(0.94^3)*q3+(0.94^4)*q4+(0.94^5)*q5+(0.94^6)*q6+(0.94^7)*q7+(0.94^8)*q8+(0.94^9)*q9 ///
+(0.94^10)*q10+(0.94^11)*q11+(0.94^12)*q12+(0.94^13)*q13+(0.94^14)*q14+(0.94^15)*q15+(0.94^16)*q16+(0.94^17)*q17+(0.94^18)*q18+(0.94^19)*q19 ///
+(0.94^20)*q20+(0.94^21)*q21+(0.94^22)*q22+(0.94^23)*q23+(0.94^24)*q24+(0.94^25)*q25+(0.94^26)*q26+(0.94^27)*q27+(0.94^28)*q28+(0.94^29)*q29 ///
+(0.94^30)*q30+(0.94^31)*q31+(0.94^32)*q32+(0.94^33)*q33+(0.94^34)*q34+(0.94^35)*q35+(0.94^36)*q36+(0.94^37)*q37+(0.94^38)*q38+(0.94^39)*q39 ///
+(0.94^40)*q40+(0.94^41)*q41+(0.94^42)*q42+(0.94^43)*q43+(0.94^44)*q44+(0.94^45)*q45+(0.94^46)*q46+(0.94^47)*q47+(0.94^48)*q48+(0.94^49)*q49 ///
+(0.94^50)*q50+(0.94^51)*q51+(0.94^52)*q52+(0.94^53)*q53+(0.94^54)*q54+(0.94^55)*q55+(0.94^56)*q56+(0.94^57)*q57+(0.94^58)*q58+(0.94^59)*q59 ///
+(0.94^60)*q60+(0.94^61)*q61+(0.94^62)*q62+(0.94^63)*q63+(0.94^64)*q64+(0.94^65)*q65+(0.94^66)*q66+(0.94^67)*q67+(0.94^68)*q68+(0.94^69)*q69 ///
+(0.94^70)*q70+(0.94^71)*q71+(0.94^72)*q72+(0.94^73)*q73+(0.94^74)*q74+(0.94^75)*q75+(0.94^76)*q76+(0.94^77)*q77+(0.94^78)*q78+(0.94^79)*q79 ///
+(0.94^80)*q80+(0.94^81)*q81+(0.94^82)*q82+(0.94^83)*q83+(0.94^84)*q84+(0.94^85)*q85+(0.94^86)*q86+(0.94^87)*q87+(0.94^88)*q88+(0.94^89)*q89 ///
+(0.94^90)*q90+(0.94^91)*q91+(0.94^92)*q92+(0.94^93)*q93+(0.94^94)*q94+(0.94^95)*q95+(0.94^96)*q96+(0.94^97)*q97+(0.94^98)*q98+(0.94^99)*q99 ///
+(0.94^100)*q100+(0.94^101)*q101+(0.94^102)*q102+(0.94^103)*q103+(0.94^104)*q104+(0.94^105)*q105+(0.94^106)*q106+(0.94^107)*q107+(0.94^108)*q108+(0.94^109)*q109 ///
+(0.94^110)*q110+(0.94^111)*q111+(0.94^112)*q112+(0.94^113)*q113+(0.94^114)*q114+(0.94^115)*q115+(0.94^116)*q116+(0.94^117)*q117+(0.94^118)*q118+(0.94^119)*q119


**All periods, discount 93%
generate c0c119_93 = q0+(0.93^1)*q1+(0.93^2)*q2+(0.93^3)*q3+(0.93^4)*q4+(0.93^5)*q5+(0.93^6)*q6+(0.93^7)*q7+(0.93^8)*q8+(0.93^9)*q9 ///
+(0.93^10)*q10+(0.93^11)*q11+(0.93^12)*q12+(0.93^13)*q13+(0.93^14)*q14+(0.93^15)*q15+(0.93^16)*q16+(0.93^17)*q17+(0.93^18)*q18+(0.93^19)*q19 ///
+(0.93^20)*q20+(0.93^21)*q21+(0.93^22)*q22+(0.93^23)*q23+(0.93^24)*q24+(0.93^25)*q25+(0.93^26)*q26+(0.93^27)*q27+(0.93^28)*q28+(0.93^29)*q29 ///
+(0.93^30)*q30+(0.93^31)*q31+(0.93^32)*q32+(0.93^33)*q33+(0.93^34)*q34+(0.93^35)*q35+(0.93^36)*q36+(0.93^37)*q37+(0.93^38)*q38+(0.93^39)*q39 ///
+(0.93^40)*q40+(0.93^41)*q41+(0.93^42)*q42+(0.93^43)*q43+(0.93^44)*q44+(0.93^45)*q45+(0.93^46)*q46+(0.93^47)*q47+(0.93^48)*q48+(0.93^49)*q49 ///
+(0.93^50)*q50+(0.93^51)*q51+(0.93^52)*q52+(0.93^53)*q53+(0.93^54)*q54+(0.93^55)*q55+(0.93^56)*q56+(0.93^57)*q57+(0.93^58)*q58+(0.93^59)*q59 ///
+(0.93^60)*q60+(0.93^61)*q61+(0.93^62)*q62+(0.93^63)*q63+(0.93^64)*q64+(0.93^65)*q65+(0.93^66)*q66+(0.93^67)*q67+(0.93^68)*q68+(0.93^69)*q69 ///
+(0.93^70)*q70+(0.93^71)*q71+(0.93^72)*q72+(0.93^73)*q73+(0.93^74)*q74+(0.93^75)*q75+(0.93^76)*q76+(0.93^77)*q77+(0.93^78)*q78+(0.93^79)*q79 ///
+(0.93^80)*q80+(0.93^81)*q81+(0.93^82)*q82+(0.93^83)*q83+(0.93^84)*q84+(0.93^85)*q85+(0.93^86)*q86+(0.93^87)*q87+(0.93^88)*q88+(0.93^89)*q89 ///
+(0.93^90)*q90+(0.93^91)*q91+(0.93^92)*q92+(0.93^93)*q93+(0.93^94)*q94+(0.93^95)*q95+(0.93^96)*q96+(0.93^97)*q97+(0.93^98)*q98+(0.93^99)*q99 ///
+(0.93^100)*q100+(0.93^101)*q101+(0.93^102)*q102+(0.93^103)*q103+(0.93^104)*q104+(0.93^105)*q105+(0.93^106)*q106+(0.93^107)*q107+(0.93^108)*q108+(0.93^109)*q109 ///
+(0.93^110)*q110+(0.93^111)*q111+(0.93^112)*q112+(0.93^113)*q113+(0.93^114)*q114+(0.93^115)*q115+(0.93^116)*q116+(0.93^117)*q117+(0.93^118)*q118+(0.93^119)*q119

**All periods, discount 92%
generate c0c119_92 = q0+(0.92^1)*q1+(0.92^2)*q2+(0.92^3)*q3+(0.92^4)*q4+(0.92^5)*q5+(0.92^6)*q6+(0.92^7)*q7+(0.92^8)*q8+(0.92^9)*q9 ///
+(0.92^10)*q10+(0.92^11)*q11+(0.92^12)*q12+(0.92^13)*q13+(0.92^14)*q14+(0.92^15)*q15+(0.92^16)*q16+(0.92^17)*q17+(0.92^18)*q18+(0.92^19)*q19 ///
+(0.92^20)*q20+(0.92^21)*q21+(0.92^22)*q22+(0.92^23)*q23+(0.92^24)*q24+(0.92^25)*q25+(0.92^26)*q26+(0.92^27)*q27+(0.92^28)*q28+(0.92^29)*q29 ///
+(0.92^30)*q30+(0.92^31)*q31+(0.92^32)*q32+(0.92^33)*q33+(0.92^34)*q34+(0.92^35)*q35+(0.92^36)*q36+(0.92^37)*q37+(0.92^38)*q38+(0.92^39)*q39 ///
+(0.92^40)*q40+(0.92^41)*q41+(0.92^42)*q42+(0.92^43)*q43+(0.92^44)*q44+(0.92^45)*q45+(0.92^46)*q46+(0.92^47)*q47+(0.92^48)*q48+(0.92^49)*q49 ///
+(0.92^50)*q50+(0.92^51)*q51+(0.92^52)*q52+(0.92^53)*q53+(0.92^54)*q54+(0.92^55)*q55+(0.92^56)*q56+(0.92^57)*q57+(0.92^58)*q58+(0.92^59)*q59 ///
+(0.92^60)*q60+(0.92^61)*q61+(0.92^62)*q62+(0.92^63)*q63+(0.92^64)*q64+(0.92^65)*q65+(0.92^66)*q66+(0.92^67)*q67+(0.92^68)*q68+(0.92^69)*q69 ///
+(0.92^70)*q70+(0.92^71)*q71+(0.92^72)*q72+(0.92^73)*q73+(0.92^74)*q74+(0.92^75)*q75+(0.92^76)*q76+(0.92^77)*q77+(0.92^78)*q78+(0.92^79)*q79 ///
+(0.92^80)*q80+(0.92^81)*q81+(0.92^82)*q82+(0.92^83)*q83+(0.92^84)*q84+(0.92^85)*q85+(0.92^86)*q86+(0.92^87)*q87+(0.92^88)*q88+(0.92^89)*q89 ///
+(0.92^90)*q90+(0.92^91)*q91+(0.92^92)*q92+(0.92^93)*q93+(0.92^94)*q94+(0.92^95)*q95+(0.92^96)*q96+(0.92^97)*q97+(0.92^98)*q98+(0.92^99)*q99 ///
+(0.92^100)*q100+(0.92^101)*q101+(0.92^102)*q102+(0.92^103)*q103+(0.92^104)*q104+(0.92^105)*q105+(0.92^106)*q106+(0.92^107)*q107+(0.92^108)*q108+(0.92^109)*q109 ///
+(0.92^110)*q110+(0.92^111)*q111+(0.92^112)*q112+(0.92^113)*q113+(0.92^114)*q114+(0.92^115)*q115+(0.92^116)*q116+(0.92^117)*q117+(0.92^118)*q118+(0.92^119)*q119


**All periods, discount 91%
generate c0c119_91 = q0+(0.91^1)*q1+(0.91^2)*q2+(0.91^3)*q3+(0.91^4)*q4+(0.91^5)*q5+(0.91^6)*q6+(0.91^7)*q7+(0.91^8)*q8+(0.91^9)*q9 ///
+(0.91^10)*q10+(0.91^11)*q11+(0.91^12)*q12+(0.91^13)*q13+(0.91^14)*q14+(0.91^15)*q15+(0.91^16)*q16+(0.91^17)*q17+(0.91^18)*q18+(0.91^19)*q19 ///
+(0.91^20)*q20+(0.91^21)*q21+(0.91^22)*q22+(0.91^23)*q23+(0.91^24)*q24+(0.91^25)*q25+(0.91^26)*q26+(0.91^27)*q27+(0.91^28)*q28+(0.91^29)*q29 ///
+(0.91^30)*q30+(0.91^31)*q31+(0.91^32)*q32+(0.91^33)*q33+(0.91^34)*q34+(0.91^35)*q35+(0.91^36)*q36+(0.91^37)*q37+(0.91^38)*q38+(0.91^39)*q39 ///
+(0.91^40)*q40+(0.91^41)*q41+(0.91^42)*q42+(0.91^43)*q43+(0.91^44)*q44+(0.91^45)*q45+(0.91^46)*q46+(0.91^47)*q47+(0.91^48)*q48+(0.91^49)*q49 ///
+(0.91^50)*q50+(0.91^51)*q51+(0.91^52)*q52+(0.91^53)*q53+(0.91^54)*q54+(0.91^55)*q55+(0.91^56)*q56+(0.91^57)*q57+(0.91^58)*q58+(0.91^59)*q59 ///
+(0.91^60)*q60+(0.91^61)*q61+(0.91^62)*q62+(0.91^63)*q63+(0.91^64)*q64+(0.91^65)*q65+(0.91^66)*q66+(0.91^67)*q67+(0.91^68)*q68+(0.91^69)*q69 ///
+(0.91^70)*q70+(0.91^71)*q71+(0.91^72)*q72+(0.91^73)*q73+(0.91^74)*q74+(0.91^75)*q75+(0.91^76)*q76+(0.91^77)*q77+(0.91^78)*q78+(0.91^79)*q79 ///
+(0.91^80)*q80+(0.91^81)*q81+(0.91^82)*q82+(0.91^83)*q83+(0.91^84)*q84+(0.91^85)*q85+(0.91^86)*q86+(0.91^87)*q87+(0.91^88)*q88+(0.91^89)*q89 ///
+(0.91^90)*q90+(0.91^91)*q91+(0.91^92)*q92+(0.91^93)*q93+(0.91^94)*q94+(0.91^95)*q95+(0.91^96)*q96+(0.91^97)*q97+(0.91^98)*q98+(0.91^99)*q99 ///
+(0.91^100)*q100+(0.91^101)*q101+(0.91^102)*q102+(0.91^103)*q103+(0.91^104)*q104+(0.91^105)*q105+(0.91^106)*q106+(0.91^107)*q107+(0.91^108)*q108+(0.91^109)*q109 ///
+(0.91^110)*q110+(0.91^111)*q111+(0.91^112)*q112+(0.91^113)*q113+(0.91^114)*q114+(0.91^115)*q115+(0.91^116)*q116+(0.91^117)*q117+(0.91^118)*q118+(0.91^119)*q119


**All periods, discount 90%
generate c0c119_90 = q0+(0.90^1)*q1+(0.90^2)*q2+(0.90^3)*q3+(0.90^4)*q4+(0.90^5)*q5+(0.90^6)*q6+(0.90^7)*q7+(0.90^8)*q8+(0.90^9)*q9 ///
+(0.90^10)*q10+(0.90^11)*q11+(0.90^12)*q12+(0.90^13)*q13+(0.90^14)*q14+(0.90^15)*q15+(0.90^16)*q16+(0.90^17)*q17+(0.90^18)*q18+(0.90^19)*q19 ///
+(0.90^20)*q20+(0.90^21)*q21+(0.90^22)*q22+(0.90^23)*q23+(0.90^24)*q24+(0.90^25)*q25+(0.90^26)*q26+(0.90^27)*q27+(0.90^28)*q28+(0.90^29)*q29 ///
+(0.90^30)*q30+(0.90^31)*q31+(0.90^32)*q32+(0.90^33)*q33+(0.90^34)*q34+(0.90^35)*q35+(0.90^36)*q36+(0.90^37)*q37+(0.90^38)*q38+(0.90^39)*q39 ///
+(0.90^40)*q40+(0.90^41)*q41+(0.90^42)*q42+(0.90^43)*q43+(0.90^44)*q44+(0.90^45)*q45+(0.90^46)*q46+(0.90^47)*q47+(0.90^48)*q48+(0.90^49)*q49 ///
+(0.90^50)*q50+(0.90^51)*q51+(0.90^52)*q52+(0.90^53)*q53+(0.90^54)*q54+(0.90^55)*q55+(0.90^56)*q56+(0.90^57)*q57+(0.90^58)*q58+(0.90^59)*q59 ///
+(0.90^60)*q60+(0.90^61)*q61+(0.90^62)*q62+(0.90^63)*q63+(0.90^64)*q64+(0.90^65)*q65+(0.90^66)*q66+(0.90^67)*q67+(0.90^68)*q68+(0.90^69)*q69 ///
+(0.90^70)*q70+(0.90^71)*q71+(0.90^72)*q72+(0.90^73)*q73+(0.90^74)*q74+(0.90^75)*q75+(0.90^76)*q76+(0.90^77)*q77+(0.90^78)*q78+(0.90^79)*q79 ///
+(0.90^80)*q80+(0.90^81)*q81+(0.90^82)*q82+(0.90^83)*q83+(0.90^84)*q84+(0.90^85)*q85+(0.90^86)*q86+(0.90^87)*q87+(0.90^88)*q88+(0.90^89)*q89 ///
+(0.90^90)*q90+(0.90^91)*q91+(0.90^92)*q92+(0.90^93)*q93+(0.90^94)*q94+(0.90^95)*q95+(0.90^96)*q96+(0.90^97)*q97+(0.90^98)*q98+(0.90^99)*q99 ///
+(0.90^100)*q100+(0.90^101)*q101+(0.90^102)*q102+(0.90^103)*q103+(0.90^104)*q104+(0.90^105)*q105+(0.90^106)*q106+(0.90^107)*q107+(0.90^108)*q108+(0.90^109)*q109 ///
+(0.90^110)*q110+(0.90^111)*q111+(0.90^112)*q112+(0.90^113)*q113+(0.90^114)*q114+(0.90^115)*q115+(0.90^116)*q116+(0.90^117)*q117+(0.90^118)*q118+(0.90^119)*q119


**All periods, discount 85%
generate c0c119_85 = q0+(0.85^1)*q1+(0.85^2)*q2+(0.85^3)*q3+(0.85^4)*q4+(0.85^5)*q5+(0.85^6)*q6+(0.85^7)*q7+(0.85^8)*q8+(0.85^9)*q9 ///
+(0.85^10)*q10+(0.85^11)*q11+(0.85^12)*q12+(0.85^13)*q13+(0.85^14)*q14+(0.85^15)*q15+(0.85^16)*q16+(0.85^17)*q17+(0.85^18)*q18+(0.85^19)*q19 ///
+(0.85^20)*q20+(0.85^21)*q21+(0.85^22)*q22+(0.85^23)*q23+(0.85^24)*q24+(0.85^25)*q25+(0.85^26)*q26+(0.85^27)*q27+(0.85^28)*q28+(0.85^29)*q29 ///
+(0.85^30)*q30+(0.85^31)*q31+(0.85^32)*q32+(0.85^33)*q33+(0.85^34)*q34+(0.85^35)*q35+(0.85^36)*q36+(0.85^37)*q37+(0.85^38)*q38+(0.85^39)*q39 ///
+(0.85^40)*q40+(0.85^41)*q41+(0.85^42)*q42+(0.85^43)*q43+(0.85^44)*q44+(0.85^45)*q45+(0.85^46)*q46+(0.85^47)*q47+(0.85^48)*q48+(0.85^49)*q49 ///
+(0.85^50)*q50+(0.85^51)*q51+(0.85^52)*q52+(0.85^53)*q53+(0.85^54)*q54+(0.85^55)*q55+(0.85^56)*q56+(0.85^57)*q57+(0.85^58)*q58+(0.85^59)*q59 ///
+(0.85^60)*q60+(0.85^61)*q61+(0.85^62)*q62+(0.85^63)*q63+(0.85^64)*q64+(0.85^65)*q65+(0.85^66)*q66+(0.85^67)*q67+(0.85^68)*q68+(0.85^69)*q69 ///
+(0.85^70)*q70+(0.85^71)*q71+(0.85^72)*q72+(0.85^73)*q73+(0.85^74)*q74+(0.85^75)*q75+(0.85^76)*q76+(0.85^77)*q77+(0.85^78)*q78+(0.85^79)*q79 ///
+(0.85^80)*q80+(0.85^81)*q81+(0.85^82)*q82+(0.85^83)*q83+(0.85^84)*q84+(0.85^85)*q85+(0.85^86)*q86+(0.85^87)*q87+(0.85^88)*q88+(0.85^89)*q89 ///
+(0.85^90)*q90+(0.85^91)*q91+(0.85^92)*q92+(0.85^93)*q93+(0.85^94)*q94+(0.85^95)*q95+(0.85^96)*q96+(0.85^97)*q97+(0.85^98)*q98+(0.85^99)*q99 ///
+(0.85^100)*q100+(0.85^101)*q101+(0.85^102)*q102+(0.85^103)*q103+(0.85^104)*q104+(0.85^105)*q105+(0.85^106)*q106+(0.85^107)*q107+(0.85^108)*q108+(0.85^109)*q109 ///
+(0.85^110)*q110+(0.85^111)*q111+(0.85^112)*q112+(0.85^113)*q113+(0.85^114)*q114+(0.85^115)*q115+(0.85^116)*q116+(0.85^117)*q117+(0.85^118)*q118+(0.85^119)*q119

**All periods, discount 80%
generate c0c119_80 = q0+(0.80^1)*q1+(0.80^2)*q2+(0.80^3)*q3+(0.80^4)*q4+(0.80^5)*q5+(0.80^6)*q6+(0.80^7)*q7+(0.80^8)*q8+(0.80^9)*q9 ///
+(0.80^10)*q10+(0.80^11)*q11+(0.80^12)*q12+(0.80^13)*q13+(0.80^14)*q14+(0.80^15)*q15+(0.80^16)*q16+(0.80^17)*q17+(0.80^18)*q18+(0.80^19)*q19 ///
+(0.80^20)*q20+(0.80^21)*q21+(0.80^22)*q22+(0.80^23)*q23+(0.80^24)*q24+(0.80^25)*q25+(0.80^26)*q26+(0.80^27)*q27+(0.80^28)*q28+(0.80^29)*q29 ///
+(0.80^30)*q30+(0.80^31)*q31+(0.80^32)*q32+(0.80^33)*q33+(0.80^34)*q34+(0.80^35)*q35+(0.80^36)*q36+(0.80^37)*q37+(0.80^38)*q38+(0.80^39)*q39 ///
+(0.80^40)*q40+(0.80^41)*q41+(0.80^42)*q42+(0.80^43)*q43+(0.80^44)*q44+(0.80^45)*q45+(0.80^46)*q46+(0.80^47)*q47+(0.80^48)*q48+(0.80^49)*q49 ///
+(0.80^50)*q50+(0.80^51)*q51+(0.80^52)*q52+(0.80^53)*q53+(0.80^54)*q54+(0.80^55)*q55+(0.80^56)*q56+(0.80^57)*q57+(0.80^58)*q58+(0.80^59)*q59 ///
+(0.80^60)*q60+(0.80^61)*q61+(0.80^62)*q62+(0.80^63)*q63+(0.80^64)*q64+(0.80^65)*q65+(0.80^66)*q66+(0.80^67)*q67+(0.80^68)*q68+(0.80^69)*q69 ///
+(0.80^70)*q70+(0.80^71)*q71+(0.80^72)*q72+(0.80^73)*q73+(0.80^74)*q74+(0.80^75)*q75+(0.80^76)*q76+(0.80^77)*q77+(0.80^78)*q78+(0.80^79)*q79 ///
+(0.80^80)*q80+(0.80^81)*q81+(0.80^82)*q82+(0.80^83)*q83+(0.80^84)*q84+(0.80^85)*q85+(0.80^86)*q86+(0.80^87)*q87+(0.80^88)*q88+(0.80^89)*q89 ///
+(0.80^90)*q90+(0.80^91)*q91+(0.80^92)*q92+(0.80^93)*q93+(0.80^94)*q94+(0.80^95)*q95+(0.80^96)*q96+(0.80^97)*q97+(0.80^98)*q98+(0.80^99)*q99 ///
+(0.80^100)*q100+(0.80^101)*q101+(0.80^102)*q102+(0.80^103)*q103+(0.80^104)*q104+(0.80^105)*q105+(0.80^106)*q106+(0.80^107)*q107+(0.80^108)*q108+(0.80^109)*q109 ///
+(0.80^110)*q110+(0.80^111)*q111+(0.80^112)*q112+(0.80^113)*q113+(0.80^114)*q114+(0.80^115)*q115+(0.80^116)*q116+(0.80^117)*q117+(0.80^118)*q118+(0.80^119)*q119



foreach var of varlist c0c119_999 c0c119_99 c0c119_98 c0c119_97 c0c119_96 c0c119_95 c0c119_94 c0c119_93 c0c119_92 c0c119_91 c0c119_90 c0c119_85 c0c119_80 {
 qui summ `var'
 replace `var' =  (`var' - r(min)) / (r(max) - r(min))
}

summarize c0c119_999 c0c119_99 c0c119_98 c0c119_97 c0c119_96 c0c119_95 c0c119_94 c0c119_93 c0c119_92 c0c119_91 c0c119_90 c0c119_85 c0c119_80 statehiste01n if statehiste01n!=.


foreach var of varlist c0c119_999 c0c119_99 c0c119_98 c0c119_97 c0c119_96 c0c119_95 c0c119_94 c0c119_93 c0c119_92 c0c119_91 c0c119_90 c0c119_85 c0c119_80 {
qui reg homicides_UN_3_ln `var' avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
estimates store `var'
}
coefplot c0*, nolabel keep(c0c119*) drop(_cons)  xline(0) byopts(colfirst) xscale(range(-2 1)) xlabel(-2 -1 0 1) graphregion(fcolor(white) ifcolor(white)) plotregion(fcolor(white) ifcolor(white)) legend(off)

graph save "Graph" "C:\Users\carlhk\Dropbox\Homicide\Replication\Allperiods_varying_discount_001_20.gph", replace




****** Figure S4   State history with varying start-dates


**First calculate State history with the varying start dates

generate c0c118_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118

generate c0c117_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117

generate c0c116_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116

generate c0c115_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115

generate c0c114_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114

generate c0c113_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113

generate c0c112_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112

generate c0c111_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111

generate c0c110_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110

generate c0c109_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109

generate c0c108_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108

generate c0c107_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107

generate c0c106_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106

generate c0c105_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105

generate c0c104_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104

generate c0c103_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103


generate c0c102_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102

generate c0c101_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101

generate c0c100_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100

generate c0c99_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 

generate c0c98_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98

generate c0c97_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97
**

generate c0c96_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96

generate c0c95_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95

generate c0c94_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94

generate c0c93_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93

generate c0c92_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92

generate c0c91_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91


generate c0c90_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90


generate c0c89_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 

generate c0c88_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88

generate c0c87_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87
**

generate c0c86_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86

generate c0c85_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85

generate c0c84_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84

generate c0c83_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83

generate c0c82_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82

generate c0c81_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81


generate c0c80_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80

generate c0c79_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 

generate c0c78_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78

generate c0c77_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77
**

generate c0c76_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76

generate c0c75_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75

generate c0c74_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74

generate c0c73_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73

generate c0c72_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72

generate c0c71_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71


generate c0c70_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70





generate c0c69_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69  

generate c0c68_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68

generate c0c67_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67
**

generate c0c66_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66

generate c0c65_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65

generate c0c64_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64

generate c0c63_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63

generate c0c62_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62

generate c0c61_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61


generate c0c60_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60












generate c0c59_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 

generate c0c58_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58

generate c0c57_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57

generate c0c56_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56

generate c0c55_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55

generate c0c54_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54

generate c0c53_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53

generate c0c52_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52

generate c0c51_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51


generate c0c50_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50







generate c0c49_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 

generate c0c48_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48

generate c0c47_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47

generate c0c46_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46

generate c0c45_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45

generate c0c44_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44

generate c0c43_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43

generate c0c42_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42

generate c0c41_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41


generate c0c40_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40












generate c0c39_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 

generate c0c38_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38

generate c0c37_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37
**

generate c0c36_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36

generate c0c35_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35

generate c0c34_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34

generate c0c33_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33

generate c0c32_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32

generate c0c31_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31


generate c0c30_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30










generate c0c29_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 

generate c0c28_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28

generate c0c27_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27

generate c0c26_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26

generate c0c25_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25

generate c0c24_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24

generate c0c23_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23

generate c0c22_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22

generate c0c21_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21


generate c0c20_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20







generate c0c19_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19

generate c0c18_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18

generate c0c17_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17
**

generate c0c16_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16

generate c0c15_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15

generate c0c14_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14

generate c0c13_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13

generate c0c12_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12

generate c0c11_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11


generate c0c10_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10


generate c0c09_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 

generate c0c08_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8

generate c0c07_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7

generate c0c06_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6

generate c0c05_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5

generate c0c04_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4

generate c0c03_99 = q0+(0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3

generate c0c02_99 = q0+(0.99^1)*q1+(0.99^2)*q2

generate c0c01_99 = q0+(0.99^1)*q1

generate c0c00_99 = q0

*foreach var of varlist c0c119_99 c0c118_99 c0c117_99 c0c116_99 c0c115_99 c0c114_99 c0c113_99 c0c112_99 c0c111_99 c0c110_99 c0c109_99 c0c108_99 c0c107_99 c0c106_99 c0c105_99 c0c104_99 c0c103_99 c0c102_99 c0c101_99 c0c100_99 c0c99_99 c0c98_99 c0c97_99 c0c96_99 c0c95_99 c0c94_99 c0c93_99 c0c92_99 c0c91_99 c0c90_99 c0c89_99 c0c88_99 c0c87_99 c0c86_99 c0c85_99 c0c84_99 c0c83_99 c0c82_99 c0c81_99 c0c80_99 c0c79_99 c0c78_99 c0c77_99 c0c76_99 c0c75_99 c0c74_99 c0c73_99 c0c72_99 c0c71_99 c0c70_99 c0c69_99 c0c68_99 c0c67_99 c0c66_99 c0c65_99 c0c64_99 c0c63_99 c0c62_99 c0c61_99 c0c60_99 c0c59_99 c0c58_99 c0c57_99 c0c56_99 c0c55_99 c0c54_99 c0c53_99 c0c52_99 c0c51_99 c0c50_99 c0c49_99 c0c48_99 c0c47_99 c0c46_99 c0c45_99 c0c44_99 c0c43_99 c0c42_99 c0c41_99 c0c40_99 c0c39_99 c0c38_99 c0c37_99 c0c36_99 c0c35_99 c0c34_99 c0c33_99 c0c32_99 c0c31_99 c0c30_99 c0c29_99 c0c28_99 c0c27_99 c0c26_99 c0c25_99 c0c24_99 c0c23_99 c0c22_99 c0c21_99 c0c20_99 c0c19_99 c0c18_99 c0c17_99 c0c16_99 c0c15_99 c0c14_99 c0c13_99 c0c12_99 c0c11_99 c0c10_99 c0c09_99 c0c08_99 c0c07_99 c0c06_99 c0c05_99 c0c04_99 c0c03_99 c0c02_99 c0c01_99 c0c00_99 {
*  replace `var' = 0 if iso3=="9998"
*} 

*foreach var of varlist c0c119_99 c0c118_99 c0c117_99 c0c116_99 c0c115_99 c0c114_99 c0c113_99 c0c112_99 c0c111_99 c0c110_99 c0c109_99 c0c108_99 c0c107_99 c0c106_99 c0c105_99 c0c104_99 c0c103_99 c0c102_99 c0c101_99 c0c100_99 c0c99_99 c0c98_99 c0c97_99 c0c96_99 c0c95_99 c0c94_99 c0c93_99 c0c92_99 c0c91_99 c0c90_99 c0c89_99 c0c88_99 c0c87_99 c0c86_99 c0c85_99 c0c84_99 c0c83_99 c0c82_99 c0c81_99 c0c80_99 c0c79_99 c0c78_99 c0c77_99 c0c76_99 c0c75_99 c0c74_99 c0c73_99 c0c72_99 c0c71_99 c0c70_99 c0c69_99 c0c68_99 c0c67_99 c0c66_99 c0c65_99 c0c64_99 c0c63_99 c0c62_99 c0c61_99 c0c60_99 c0c59_99 c0c58_99 c0c57_99 c0c56_99 c0c55_99 c0c54_99 c0c53_99 c0c52_99 c0c51_99 c0c50_99 c0c49_99 c0c48_99 c0c47_99 c0c46_99 c0c45_99 c0c44_99 c0c43_99 c0c42_99 c0c41_99 c0c40_99 c0c39_99 c0c38_99 c0c37_99 c0c36_99 c0c35_99 c0c34_99 c0c33_99 c0c32_99 c0c31_99 c0c30_99 c0c29_99 c0c28_99 c0c27_99 c0c26_99 c0c25_99 c0c24_99 c0c23_99 c0c22_99 c0c21_99 c0c20_99 c0c19_99 c0c18_99 c0c17_99 c0c16_99 c0c15_99 c0c14_99 c0c13_99 c0c12_99 c0c11_99 c0c10_99 c0c09_99 c0c08_99 c0c07_99 c0c06_99 c0c05_99 c0c04_99 c0c03_99 c0c02_99 c0c01_99 c0c00_99 {
*  replace `var' = 1 if iso3=="9999"
*} 

foreach var of varlist c0c119_99 c0c118_99 c0c117_99 c0c116_99 c0c115_99 c0c114_99 c0c113_99 c0c112_99 c0c111_99 c0c110_99 c0c109_99 c0c108_99 c0c107_99 c0c106_99 c0c105_99 c0c104_99 c0c103_99 c0c102_99 c0c101_99 c0c100_99 c0c99_99 c0c98_99 c0c97_99 c0c96_99 c0c95_99 c0c94_99 c0c93_99 c0c92_99 c0c91_99 c0c90_99 c0c89_99 c0c88_99 c0c87_99 c0c86_99 c0c85_99 c0c84_99 c0c83_99 c0c82_99 c0c81_99 c0c80_99 c0c79_99 c0c78_99 c0c77_99 c0c76_99 c0c75_99 c0c74_99 c0c73_99 c0c72_99 c0c71_99 c0c70_99 c0c69_99 c0c68_99 c0c67_99 c0c66_99 c0c65_99 c0c64_99 c0c63_99 c0c62_99 c0c61_99 c0c60_99 c0c59_99 c0c58_99 c0c57_99 c0c56_99 c0c55_99 c0c54_99 c0c53_99 c0c52_99 c0c51_99 c0c50_99 c0c49_99 c0c48_99 c0c47_99 c0c46_99 c0c45_99 c0c44_99 c0c43_99 c0c42_99 c0c41_99 c0c40_99 c0c39_99 c0c38_99 c0c37_99 c0c36_99 c0c35_99 c0c34_99 c0c33_99 c0c32_99 c0c31_99 c0c30_99 c0c29_99 c0c28_99 c0c27_99 c0c26_99 c0c25_99 c0c24_99 c0c23_99 c0c22_99 c0c21_99 c0c20_99 c0c19_99 c0c18_99 c0c17_99 c0c16_99 c0c15_99 c0c14_99 c0c13_99 c0c12_99 c0c11_99 c0c10_99 c0c09_99 c0c08_99 c0c07_99 c0c06_99 c0c05_99 c0c04_99 c0c03_99 c0c02_99 c0c01_99 c0c00_99 {
 qui summ `var'
 replace `var' =  (`var' - r(min)) / (r(max) - r(min))
}

summarize c0c119_99 c0c118_99 c0c117_99 c0c116_99 c0c115_99 c0c114_99 c0c113_99 c0c112_99 c0c111_99 c0c110_99 c0c109_99 c0c108_99 c0c107_99 c0c106_99 c0c105_99 c0c104_99 c0c103_99 c0c102_99 c0c101_99 c0c100_99 c0c99_99 c0c98_99 c0c97_99 c0c96_99 c0c95_99 c0c94_99 c0c93_99 c0c92_99 c0c91_99 c0c90_99 c0c89_99 c0c88_99 c0c87_99 c0c86_99 c0c85_99 c0c84_99 c0c83_99 c0c82_99 c0c81_99 c0c80_99 c0c79_99 c0c78_99 c0c77_99 c0c76_99 c0c75_99 c0c74_99 c0c73_99 c0c72_99 c0c71_99 c0c70_99 c0c69_99 c0c68_99 c0c67_99 c0c66_99 c0c65_99 c0c64_99 c0c63_99 c0c62_99 c0c61_99 c0c60_99 c0c59_99 c0c58_99 c0c57_99 c0c56_99 c0c55_99 c0c54_99 c0c53_99 c0c52_99 c0c51_99 c0c50_99 c0c49_99 c0c48_99 c0c47_99 c0c46_99 c0c45_99 c0c44_99 c0c43_99 c0c42_99 c0c41_99 c0c40_99 c0c39_99 c0c38_99 c0c37_99 c0c36_99 c0c35_99 c0c34_99 c0c33_99 c0c32_99 c0c31_99 c0c30_99 c0c29_99 c0c28_99 c0c27_99 c0c26_99 c0c25_99 c0c24_99 c0c23_99 c0c22_99 c0c21_99 c0c20_99 c0c19_99 c0c18_99 c0c17_99 c0c16_99 c0c15_99 c0c14_99 c0c13_99 c0c12_99 c0c11_99 c0c10_99 c0c09_99 c0c08_99 c0c07_99 c0c06_99 c0c05_99 c0c04_99 c0c03_99 c0c02_99 c0c01_99 c0c00_99 statehiste01n if statehiste01n!=.

drop _est_*

foreach var of varlist c0c119_99 c0c118_99 c0c117_99 c0c116_99 c0c115_99 c0c114_99 c0c113_99 c0c112_99 c0c111_99 c0c110_99 c0c109_99 c0c108_99 c0c107_99 c0c106_99 c0c105_99 c0c104_99 c0c103_99 c0c102_99 c0c101_99 c0c100_99 c0c99_99 c0c98_99 c0c97_99 c0c96_99 c0c95_99 c0c94_99 c0c93_99 c0c92_99 c0c91_99 c0c90_99 c0c89_99 c0c88_99 c0c87_99 c0c86_99 c0c85_99 c0c84_99 c0c83_99 c0c82_99 c0c81_99 c0c80_99 c0c79_99 c0c78_99 c0c77_99 c0c76_99 c0c75_99 c0c74_99 c0c73_99 c0c72_99 c0c71_99 c0c70_99 c0c69_99 c0c68_99 c0c67_99 c0c66_99 c0c65_99 c0c64_99 c0c63_99 c0c62_99 c0c61_99 c0c60_99 c0c59_99 c0c58_99 c0c57_99 c0c56_99 c0c55_99 c0c54_99 c0c53_99 c0c52_99 c0c51_99 c0c50_99 c0c49_99 c0c48_99 c0c47_99 c0c46_99 c0c45_99 c0c44_99 c0c43_99 c0c42_99 c0c41_99 c0c40_99 c0c39_99 c0c38_99 c0c37_99 c0c36_99 c0c35_99 c0c34_99 c0c33_99 c0c32_99 c0c31_99 c0c30_99 c0c29_99 c0c28_99 c0c27_99 c0c26_99 c0c25_99 c0c24_99 c0c23_99 c0c22_99 c0c21_99 c0c20_99 c0c19_99 c0c18_99 c0c17_99 c0c16_99 c0c15_99 c0c14_99 c0c13_99 c0c12_99 c0c11_99 c0c10_99 c0c09_99 c0c08_99 c0c07_99 c0c06_99 c0c05_99 c0c04_99 c0c03_99 c0c02_99 c0c01_99 c0c00_99 {
qui reg homicides_UN_3_ln `var' avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
estimates store `var'
}
coefplot c0*, nolabel keep(c0*) drop(_cons c0c119_999 c0c119_98 c0c119_97 c0c119_96 c0c119_95 c0c119_94 c0c119_93 c0c119_92 c0c119_91 c0c119_90 c0c119_85 c0c119_80 *_95)  xline(0) byopts(colfirst) xscale(range(-2 1)) xlabel(-2 -1 0 1) graphregion(fcolor(white) ifcolor(white)) plotregion(fcolor(white) ifcolor(white)) legend(off)

graph save "Graph" "C:\Users\carlhk\Dropbox\Homicide\Replication\varying_start_period.gph"






*********      Figure S6: Different end periods, 1% discount, from year 1950 (1) to year 1 (40)



generate c1c119_99 = (0.99^1)*q1+(0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119


generate c2c119_99 = (0.99^2)*q2+(0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c3c119_99 = (0.99^3)*q3+(0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c4c119_99 = (0.99^4)*q4+(0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c5c119_99 = (0.99^5)*q5+(0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c6c119_99 = (0.99^6)*q6+(0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c7c119_99 = (0.99^7)*q7+(0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c8c119_99 = (0.99^8)*q8+(0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c9c119_99 = (0.99^9)*q9 ///
+(0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c10c119_99 = (0.99^10)*q10+(0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119






generate c11c119_99 = (0.99^11)*q11+(0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119


generate c12c119_99 = (0.99^12)*q12+(0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c13c119_99 = (0.99^13)*q13+(0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c14c119_99 = (0.99^14)*q14+(0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c15c119_99 = (0.99^15)*q15+(0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c16c119_99 = (0.99^16)*q16+(0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c17c119_99 = (0.99^17)*q17+(0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c18c119_99 = (0.99^18)*q18+(0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c19c119_99 = (0.99^19)*q19 ///
+(0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c20c119_99 = (0.99^20)*q20+(0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119




generate c21c119_99 = (0.99^21)*q21+(0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119


generate c22c119_99 = (0.99^22)*q22+(0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c23c119_99 = (0.99^23)*q23+(0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c24c119_99 = (0.99^24)*q24+(0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c25c119_99 = (0.99^25)*q25+(0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c26c119_99 = (0.99^26)*q26+(0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c27c119_99 = (0.99^27)*q27+(0.99^28)*q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c28c119_99 = q28+(0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c29c119_99 = (0.99^29)*q29 ///
+(0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c30c119_99 = (0.99^30)*q30+(0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119




generate c31c119_99 = (0.99^31)*q31+(0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119


generate c32c119_99 = (0.99^32)*q32+(0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c33c119_99 = (0.99^33)*q33+(0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c34c119_99 = (0.99^34)*q34+(0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c35c119_99 = (0.99^35)*q35+(0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c36c119_99 = (0.99^36)*q36+(0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c37c119_99 = (0.99^37)*q37+(0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c38c119_99 = (0.99^38)*q38+(0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c39c119_99 = (0.99^39)*q39 ///
+(0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119

generate c40c119_99 = (0.99^40)*q40+(0.99^41)*q41+(0.99^42)*q42+(0.99^43)*q43+(0.99^44)*q44+(0.99^45)*q45+(0.99^46)*q46+(0.99^47)*q47+(0.99^48)*q48+(0.99^49)*q49 ///
+(0.99^50)*q50+(0.99^51)*q51+(0.99^52)*q52+(0.99^53)*q53+(0.99^54)*q54+(0.99^55)*q55+(0.99^56)*q56+(0.99^57)*q57+(0.99^58)*q58+(0.99^59)*q59 ///
+(0.99^60)*q60+(0.99^61)*q61+(0.99^62)*q62+(0.99^63)*q63+(0.99^64)*q64+(0.99^65)*q65+(0.99^66)*q66+(0.99^67)*q67+(0.99^68)*q68+(0.99^69)*q69 ///
+(0.99^70)*q70+(0.99^71)*q71+(0.99^72)*q72+(0.99^73)*q73+(0.99^74)*q74+(0.99^75)*q75+(0.99^76)*q76+(0.99^77)*q77+(0.99^78)*q78+(0.99^79)*q79 ///
+(0.99^80)*q80+(0.99^81)*q81+(0.99^82)*q82+(0.99^83)*q83+(0.99^84)*q84+(0.99^85)*q85+(0.99^86)*q86+(0.99^87)*q87+(0.99^88)*q88+(0.99^89)*q89 ///
+(0.99^90)*q90+(0.99^91)*q91+(0.99^92)*q92+(0.99^93)*q93+(0.99^94)*q94+(0.99^95)*q95+(0.99^96)*q96+(0.99^97)*q97+(0.99^98)*q98+(0.99^99)*q99 ///
+(0.99^100)*q100+(0.99^101)*q101+(0.99^102)*q102+(0.99^103)*q103+(0.99^104)*q104+(0.99^105)*q105+(0.99^106)*q106+(0.99^107)*q107+(0.99^108)*q108+(0.99^109)*q109 ///
+(0.99^110)*q110+(0.99^111)*q111+(0.99^112)*q112+(0.99^113)*q113+(0.99^114)*q114+(0.99^115)*q115+(0.99^116)*q116+(0.99^117)*q117+(0.99^118)*q118+(0.99^119)*q119




foreach var of varlist c1c119_99 c2c119_99 c3c119_99 c4c119_99 c5c119_99 c6c119_99 c7c119_99 c8c119_99 c9c119_99 c10c119_99 c11c119_99 c12c119_99 c13c119_99 c14c119_99 c15c119_99 c16c119_99 c17c119_99 c18c119_99 c19c119_99 c20c119_99 c21c119_99 c22c119_99 c23c119_99 c24c119_99 c25c119_99 c26c119_99 c27c119_99 c28c119_99 c29c119_99 c30c119_99 c31c119_99 c32c119_99 c33c119_99 c34c119_99 c35c119_99 c36c119_99 c37c119_99 c38c119_99 c39c119_99 c40c119_99 {
 qui summ `var'
 replace `var' =  (`var' - r(min)) / (r(max) - r(min))
}

summarize c1c119_99 c2c119_99 c3c119_99 c4c119_99 c5c119_99 c6c119_99 c7c119_99 c8c119_99 c9c119_99 c10c119_99 c11c119_99 c12c119_99 c13c119_99 c14c119_99 c15c119_99 c16c119_99 c17c119_99 c18c119_99 c19c119_99 c20c119_99 c21c119_99 c22c119_99 c23c119_99 c24c119_99 c25c119_99 c26c119_99 c27c119_99 c28c119_99 c29c119_99 c30c119_99 c31c119_99 c32c119_99 c33c119_99 c34c119_99 c35c119_99 c36c119_99 c37c119_99 c38c119_99 c39c119_99 c40c119_99 statehiste01n if statehiste01n!=.


drop _est_*

foreach var of varlist c0c119_99 c1c119_99 c2c119_99 c3c119_99 c4c119_99 c5c119_99 c6c119_99 c7c119_99 c8c119_99 c9c119_99 c10c119_99 c11c119_99 c12c119_99 c13c119_99 c14c119_99 c15c119_99 c16c119_99 c17c119_99 c18c119_99 c19c119_99 c20c119_99 c21c119_99 c22c119_99 c23c119_99 c24c119_99 c25c119_99 c26c119_99 c27c119_99 c28c119_99 c29c119_99 c30c119_99 c31c119_99 c32c119_99 c33c119_99 c34c119_99 c35c119_99 c36c119_99 c37c119_99 c38c119_99 c39c119_99 c40c119_99 {
qui reg homicides_UN_3_ln `var' avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth    c.year##c.year, vce(cluster country_id)
estimates store `var'
}
coefplot c*, nolabel keep(c0c119_99 c1c119_99 c2c119_99 c3c119_99 c4c119_99 c5c119_99 c6c119_99 c7c119_99 c8c119_99 c9c119_99 c10c119_99 c11c119_99 c12c119_99 c13c119_99 c14c119_99 c15c119_99 c16c119_99 c17c119_99 c18c119_99 c19c119_99 c20c119_99 c21c119_99 c22c119_99 c23c119_99 c24c119_99 c25c119_99 c26c119_99 c27c119_99 c28c119_99 c29c119_99 c30c119_99 c31c119_99 c32c119_99 c33c119_99 c34c119_99 c35c119_99 c36c119_99 c37c119_99 c38c119_99 c39c119_99 c40c119_99) drop(_cons) xline(0) byopts(colfirst) xscale(range(-2 1)) xlabel(-2 -1 0 1) graphregion(fcolor(white) ifcolor(white)) plotregion(fcolor(white) ifcolor(white)) legend(off)

graph save "Graph" "C:\Users\carlhk\Dropbox\Homicide\Replication\varying_end_period.gph"


use "C:\Users\carlhk\Dropbox\Homicide\Replication\Main_dataset_replication.dta", clear






******  Table S9: Alternative estimators
reg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A9_rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) replace
qui drop sample

xtreg homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, be 
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A9_rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample

tobit homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, ll vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A9_rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years') addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample

poisson homicides_UN_3_ln adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   c.year##c.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
outreg2 using Table_A9_rev.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years') addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth) append
qui drop sample




****** Table S9: Mechanisms/Law Abidingness


use "C:\Users\carlhk\Dropbox\Homicide\Replication\WVS_EVS_wave7_2.dta", clear

* Justifiable: Claiming government benefits to which you are not entitled
qui reg F114A adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_S10.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) replace
qui drop sample

* Justifiable: Avoiding a fare on public transport
qui reg F115 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c  , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_S10.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Justifiable: Cheating on taxes
qui reg F116 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c  , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_S10.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Justifiable: Someone accepting a bribe
qui reg F117 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c  , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_S10.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample

* Justifiable: Political violence
qui reg E290 adjstate avg_temp ocdistance_abs_new LatinAmCarib  duration_global eur_pct_est_smooth   X003 X001 X025R V004RM X028 i.size_5c  , vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using Table_S10.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(adjstate) append
qui drop sample
